use Bio::Tools::Mlst;
use Bio::Perl;
use Data::Dumper;

my $adk_4=Bio::Seq->new(
  -seq=>'AAAGCGAAAAAAATCATTGACGAAGGCGGCTTGGTGCGCGACGACATCATTATCGGCATGGTCAAAGAACGCATCGCGCAAGACGACTGCAAAAACGGTTTCCTGTTCGACGGTTTCCCGCGCACATTGGCACAAGCCGAAGCGATGGTTGAAGCAGGCGTGGATTTGGATGCAGTCGTTGAAATCGATGTGCCTGACAGCGTGATTGTCGATCGTATGAGCGGCCGCCGCGTGCATTTGGCTTCCGGCCGTACTTACCACGTTACCTACAACCCGCCCAAAGTTGAAGGCAAAGACGACGTAACCGGCGAAGATTTGATTCAGCGCGACGACGACAAAGAAGAAACCGTGAAAAAACGCCTTGCCGTTTACCACGAGCAAACCGAAGTTTTGGTCGATTTTTACAGCAAACTGGAAGGCGAACACGCGCCTAAATACATCAAAGTTGACGGCACTCAGCCGGTA', # adk_-4
  -id=>"adk_4",
); # the sequence has a substitution G1A

$pubmlst=Bio::Tools::Mlst->new({database=>'neisseria'});
%result=$pubmlst->locusQuery({seq=>$adk_4,locus=>"adk_"});
my @resultKey=keys (%result);
print Dumper %result;